home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DDJMAG / DDJ9203.ZIP / OOPASM.ZIP / FILEDLG.ASM < prev    next >
Assembly Source File  |  1994-03-04  |  2KB  |  85 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    messages.inc
  6.     INCLUDE    objects.inc
  7.  
  8.     UR    EQU    7            ;Upper row
  9.     LC    EQU    5            ;Left column
  10.     LR    EQU    17            ;Lower row
  11.     RC    EQU    65            ;Right column
  12.     MR    EQU    LR-(RowOffset+1)    ;Mouse row
  13.     MC    EQU    LC+ColOffset+1        ;Mouse column
  14.  
  15. IF1
  16.     INCLUDE    macros.mac
  17.     INCLUDE    objects.mac
  18. ENDIF
  19.  
  20.     EXTRN    sendMsg:NEAR
  21.  
  22.     EXTRN    Dialog:WORD
  23.     EXTRN    Dispatch:WORD
  24.     EXTRN    DlgMenu:WORD
  25.     EXTRN    Dir:WORD
  26.     EXTRN    EditWin:WORD
  27.     EXTRN    File:WORD
  28.     EXTRN    FileInfo:WORD
  29.     EXTRN    Hardware:WORD
  30.     EXTRN    Master:WORD
  31.     EXTRN    Self:WORD
  32.     EXTRN    Sound:WORD
  33.     EXTRN    System:WORD
  34.  
  35.     .CODE
  36.  
  37.     .DATA
  38.  
  39. FileDlgText    DB    "Select a file to open:",0
  40.  
  41. defMenu        FileDlg,<" Open File "," View Info "," Cancel ">
  42.  
  43. defMenuTbl    FileDlg,\
  44.         <File,Open>,\
  45.         <FileDlg,Clear,FileInfo,Refresh>,\
  46.         <FileDlg,Clear>
  47.  
  48. defDispTbl    FileDlg,\
  49.     <0,0,3,0,0,0,0,System,Reset>,\
  50.     <0,72,3,0,0,0,0,Dir,Prev>,\
  51.     <0,75,3,0,0,0,0,DlgMenu,Prev>,\
  52.     <0,77,3,0,0,0,0,DlgMenu,Next>,\
  53.     <0,80,3,0,0,0,0,Dir,Next>,\
  54.     <13,28,3,0,0,0,0,FileDlg,Select>,\
  55.     <27,1,3,0,0,0,0,FileDlg,Clear>,\
  56.     <0,68,3,0,0,0,0,FileDlg,Clear,System,Refresh,System,Read>,\
  57.     <0,Nil,1,MR,MC,MR+2,MC+36,FileDlg,Click>,\
  58.     <0,Nil,Nil,0,0,24,79,Hardware,Refresh>,\
  59.     <Nil,Nil,3,0,0,0,0,EditWin,Read>
  60.  
  61. defSlaveTbl    FileDlg,<EditWin,Dir,DlgMenu>
  62.  
  63. defObj    FileDlg,\
  64.     <Dispatch,Dialog,Master>,\
  65.     <Row1,1,UR,\
  66.     Col1,1,LC,\
  67.     Row2,1,LR,\
  68.     Col2,1,RC,\
  69.     Color,1,31h,\
  70.     Unused,1,Nil,\
  71.     TxtPtr,2,FileDlgText,\
  72.     InxPtr,2,0,\
  73.     MasterObj,2,Nil,\
  74.     DispTbl,2,FileDlgDispTbl,\
  75.     MenuPtr,2,FileDlgMenu,\
  76.     MenuTbl,2,FileDlgMenuTbl,\
  77.     SlaveTbl,2,FileDlgSlaveTbl,\
  78.     ActiveSlave,2,Nil>,\
  79.     <Refresh,Read,Select,Clear,Hilite,Click>
  80.  
  81.  
  82.  
  83.     END
  84.  
  85.